home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 May: Tool Chest / Developer CD Series Tool Chest (Apple Computer)(May 1999).iso / Tool Chest / Devices / NuBus⁄Slot Manager / NuBusTester / NuBusTest.p < prev    next >
Encoding:
Text File  |  1992-08-14  |  666 b   |  28 lines  |  [TEXT/MPS ]
  1. {[j=15-/40]}
  2. {$R-}
  3. PROGRAM NuBusTest;
  4. { This program determines whether or not this machine can deal with NuBus cards
  5.  that put their declaration ROM in the high part of the card’s 16M address
  6.  space. Specifically, it checks to see if the machine is running ROM 78, and if
  7.  so, whether or not the rom version is later than 1.0 (i.e. has a DeclROM) }
  8.  
  9.     USES
  10.             Memtypes, Quickdraw, OSIntf, ToolIntf, PackIntf, nbTestIntf;
  11.  
  12.     PROCEDURE _DataInit;
  13.         EXTERNAL;
  14.  
  15.     BEGIN
  16.         UnLoadSeg(@_DataInit);
  17.         InitGraf(@thePort);
  18.         InitFonts;
  19.         FlushEvents(everyEvent, 0);
  20.         InitWindows;
  21.         InitMenus;
  22.         TEInit;
  23.         InitDialogs(NIL);
  24.         InitCursor;
  25.  
  26.         IF CheckNuBus THEN {Nothing} ;
  27.     END.
  28.